perm filename LANG[MUS,LCS] blob
sn#197662 filedate 1976-01-21 generic text, type T, neo UTF8
00010 ARRAY F5
00021 (512);
00032 SEG (F5 );
00043 0.0000 1.0000
00054 0.0000 1.2000
00065 1.0000 3.0000
00076 1.0000 98.0000
00087 0.0000 100.0000
00100 COMPILE;
01300 INSTRUMENT FM;
01400 ZOSCIL(P4,MAG/P2,P5);
01510 RANDI(P9*P7*MAG,MAG/P8);
01600 OSCIL(U2,P9*MAG,P10);
01700 OSCIL(U1,U3+P3*MAG,P6);
01800 OUTA←OUTA+U4; END;
01900
02500 FINISH;
02600
03000 SYNTH(F1);1 1 999;
03200
03300
03340 PLAY;FM 0 .80 440 2000 F5 F1 11 .01 440.06 F1;FINISH;
03440 RCDFLG←1;
03500 PLAY;FM 0 610 440 2000 F5 F1 11 10 440.06 F1;FINISH;